       SUBROUTINE RSCREEN
       CALL COLOR('WHITE','BLUE')
       CALL PROMPT(' ESC - Abort | W - Water Quality '
     1 //'| T - Transport | C - Chg Segments | S - Sound',3)
       CALL COLOR('BLACK','BLACK')
       RETURN
       END
